home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs08.d81 / unapcarc.arc / UNAPCARC.BML (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  6KB  |  47 lines
  1. 90 SYS0006070
  2. 100 PRINT"[147]";CHR$(14):POKE53280,0:POKE53281,0
  3. 110 PRINT"          [211]OFTWARE BY [215]ILSERV":PRINT
  4. 120 PRINT"     [158][205][211]/[196][207][211] [193]RCHIVE [198]ILE [196]ISSOLVER"
  5. 130 PRINT"             [214]ERSION  2.00"
  6. 140 PRINT
  7. 150 PRINT"   [195]OPYRIGHT (C) 1987 BY [215]ILLI [203]USCHE"
  8. 160 PRINT:PRINT"[156]     [203][205][205][205] [208]ASCAL [194][194][211] (609) 232-0773":PRINT
  9. 170 PRINT"[212]HIS PROGRAM IS THE COPYRIGHTED PROPERTY";
  10. 180 PRINT"OF THE AUTHOR -- IT IS [206][207][212] IN THE PUBLIC";
  11. 190 PRINT"DOMAIN.  [200][207][215][197][214][197][210]... FREE USE AND DISTRI-";
  12. 200 PRINT"BUTION IS ENCOURAGED, SUBJECT TO THE"
  13. 210 PRINT"FOLLOWING CONDITIONS:"
  14. 220 PRINT
  15. 230 PRINT"(1)  [212]HIS PROGRAM MAY NOT BE UPLOADED TO";
  16. 240 PRINT"     ANY [194][194][211] OR SERVICE THAT CHARGES"
  17. 250 PRINT"     A FEE FOR DOWNLOADING FILES."
  18. 260 PRINT"(2)  [212]HIS PROGRAM MAY NOT BE A PART OF"
  19. 270 PRINT"     A DISKETTE WHEN A FEE IS CHARGED"
  20. 275 PRINT"     FOR COPYING THAT DISKETTE."
  21. 276 PRINT:PRINT
  22. 280 PRINT"       [159][208]RESS ANY KEY TO CONTINUE";
  23. 310 GETC$:IFC$=""THENGOTO310
  24. 330 PRINT"[147]"
  25. 340 PRINT"  [212]HIS PROGRAM WILL EXTRACT THE FILES"
  26. 350 PRINT"THAT ARE PART OF AN [205][211]/[196][207][211] '.[193][210][195]' FILE."
  27. 360 PRINT
  28. 370 PRINT"  [212]HIS PROGRAM ASSUMES THAT THE ARCHIVE"
  29. 380 PRINT"FILE NAME HAS A '.[193][210][195]' SUFFIX, SO DO"
  30. 390 PRINT"NOT ENTER IT WHEN YOU GIVE THE FILE"
  31. 400 PRINT"NAME.":PRINT
  32. 410 PRINT"  [212]HE OUTPUT DRIVE IS SPECIFIED AS"
  33. 420 PRINT"FOLLOWS:":PRINT
  34. 430 PRINT"        [204]ETTER  [213]NIT  [196]RIVE [206]O."
  35. 440 PRINT"        ------  ----  ---------"
  36. 450 PRINT"           [193]      8       0"
  37. 460 PRINT"           [194]      8       1"
  38. 470 PRINT"           [195]      9       0"
  39. 480 PRINT"           [196]      9       1"
  40. 490 PRINT"           [197]     10       0"
  41. 500 PRINT"           [198]     10       1":PRINT:PRINT:PRINT:PRINT
  42. 510 PRINT"       [159][208]RESS ANY KEY TO CONTINUE";
  43. 520 GETC$:IFC$=""THENGOTO520
  44. 530 PRINTCHR$(142);"[147]"
  45. 540 SYS3596
  46. 550 SYS0006097
  47.